home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / matops.tst < prev    next >
Text File  |  1999-09-16  |  3KB  |  102 lines
  1. //insertion
  2. v=[1 2 3];
  3. v(2)=3;if or(v<>[1 3 3]) then pause,end
  4. v(4)=-5;if or(v<>[1 3 3 -5]) then pause,end
  5. v([1 4])=[2 5];if or(v<>[2 3 3 5]) then pause,end
  6. v([1 1])=[2 5];if or(v<>[5 3 3 5]) then pause,end
  7. v([1 1 1 1 1 1])=[2 5 6 7 8 9];if or(v<>[9 3 3 5]) then pause,end
  8. v([4 2])=[8 5];if or(v<>[9 5 3 8]) then pause,end
  9.  
  10. v=[1 2 3];
  11. v(2,4)=10;if or(v<>[1 2 3 0;0 0 0 10]) then pause,end
  12. v([2 2],4)=[10;20];if or(v<>[1 2 3 0;0 0 0 20]) then pause,end
  13. v([2 1],4)=[10;20];if or(v<>[1 2 3 20;0 0 0 10]) then pause,end
  14. v([2 2 2],4)=[10;20;30];if or(v<>[1 2 3 20;0 0 0 30]) then pause,end
  15.  
  16. v=[1 2 3;0 0 10];
  17. v(1,[1 1 1 1])=1:4;;if or(v<>[4 2 3;0 0 10]) then pause,end
  18. v([2 2],[1 1 1 1])=[1:4;2:5];if or(v<>[4 2 3;5 0 10]) then pause,end
  19. v(3,4)=7;if or(v<>[4 2 3 0;5 0 10 0;0 0 0 7]) then pause,end
  20.  
  21. v=[];
  22. v(5)=1;if or(v<>[0;0;0;0;1]) then pause,end
  23. v(2)=4;if or(v<>[0;4;0;0;1]) then pause,end
  24.  
  25. v=[1 2 3;4 5 6];
  26. v(:,1)=[4;1];if or(v<>[4 2 3;1 5 6]) then pause,end
  27. v(:,[1 1])=[4 5;1 2];if or(v<>[5 2 3;2 5 6]) then pause,end
  28. v(:,[3 1])=[4 5;1 2];if or(v<>[5 2 4;2 5 1]) then pause,end
  29. v(:,[3 3 3 3])=[4 5 6 7;1 2 3 4];if or(v<>[5 2 7;2 5 4]) then pause,end
  30.  
  31. v=[1 2 3;4 5 6];
  32. v(1,:)=[2 3 4];if or(v<>[2 3 4;4 5 6]) then pause,end
  33. v([1 1],:)=[2 3 4;4 5 6];if or(v<>[4 5 6;4 5 6]) then pause,end
  34. v([2 2 2 2],:)=[2 3 4;4 5 6;7 8 9;10 11 12];
  35. if or(v<>[4 5 6;10 11 12]) then pause,end
  36.  
  37. v=[1 2 3];
  38. v(2)=[];if or(v<>[1 3]) then pause,end
  39. v=[1 2 3];
  40. v([3 2])=[];if v<>1 then pause,end
  41.  
  42. v=[1 2 3]';
  43. v(2)=[];if or(v<>[1 3]') then pause,end
  44. v=[1 2 3]';
  45. v([3 2])=[];if v<>1 then pause,end
  46.  
  47. v=[1 2 3;4 5 6];
  48. v(1,:)=[];if or(v<>[4 5 6]);then pause,end
  49. v=[1 2 3;4 5 6];
  50. v(:,[3 2])=[];if or(v<>[1;4]);then pause,end
  51. //======================
  52. v=[1 2 3];
  53. v(2)=%i;if or(v<>[1 %i 3]) then pause,end
  54. v(4)=-5;if or(v<>[1 %i 3 -5]) then pause,end
  55. v([1 4])=[2*%i 5];if or(v<>[2*%i %i 3 5]) then pause,end
  56. v([1 1])=[2 5*%i];if or(v<>[5*%i %i 3 5]) then pause,end
  57. v([1 1 1 1 1 1])=[2 5 6 7 8 9];if or(v<>[9 %i 3 5]) then pause,end
  58. v([4 2])=[8 5];if or(v<>[9 5 3 8]) then pause,end
  59.  
  60. v=[%i 2 3];
  61. v(2,4)=10;if or(v<>[%i 2 3 0;0 0 0 10]) then pause,end
  62. v([2 2],4)=[10;20*%i];if or(v<>[%i 2 3 0;0 0 0 20*%i]) then pause,end
  63. v([2 1],4)=[10;20*%i];if or(v<>[%i 2 3 20*%i;0 0 0 10]) then pause,end
  64. v([2 2 2],4)=[10;20;30];if or(v<>[%i 2 3 20*%i;0 0 0 30]) then pause,end
  65.  
  66. v=[1 2 3;0 0 10*%i];
  67. v(1,[1 1 1 1])=1:4;if or(v<>[4 2 3;0 0 10*%i]) then pause,end
  68. v([2 2],[1 1 1 1])=[1:4;2:5];if or(v<>[4 2 3;5 0 10*%i]) then pause,end
  69. v(3,4)=7;if or(v<>[4 2 3 0;5 0 10*%i 0;0 0 0 7]) then pause,end
  70.  
  71. v=[];
  72. v(5)=%i;if or(v<>[0;0;0;0;%i]) then pause,end
  73. v(2)=4;if or(v<>[0;4;0;0;%i]) then pause,end
  74.  
  75. v=[1 2 3;4 5 6];
  76. v(:,1)=[4;%i];if or(v<>[4 2 3;%i 5 6]) then pause,end
  77. v(:,[1 1])=[4 5;1 2];if or(v<>[5 2 3;2 5 6]) then pause,end
  78. v(:,[3 1])=[4 5;%i 2];if or(v<>[5 2 4;2 5 %i]) then pause,end
  79. v(:,[3 3 3 3])=[4 5 6 7;1 2 3 4];if or(v<>[5 2 7;2 5 4]) then pause,end
  80.  
  81. v=[%i 2 3;4 5 6];
  82. v(1,:)=[2 3 4];if or(v<>[2 3 4;4 5 6]) then pause,end
  83. v([1 1],:)=[2 3 4;4*%i 5 6];if or(v<>[4*%i 5 6;4 5 6]) then pause,end
  84. v([2 2 2 2],:)=[2 3 4;4 5 6;7 8 9;10 11 12];
  85. if or(v<>[4*%i 5 6;10 11 12]) then pause,end
  86.  
  87. v=[%i 2 3];
  88. v(2)=[];if or(v<>[%i 3]) then pause,end
  89. v=[1 2 3*%i];
  90. v([3 2])=[];if v<>1 then pause,end
  91.  
  92. v=[%i 2 3]';
  93. v(2)=[];if or(v<>[%i 3]') then pause,end
  94. v=[1 2 3*%i]';
  95. v([3 2])=[];if v<>1 then pause,end
  96.  
  97. v=[%i 2 3;4 5 6];
  98. v(1,:)=[];if or(v<>[4 5 6]);then pause,end
  99. v=[%i 2 3;4 5 6];
  100. v(:,[3 2])=[];if or(v<>[%i;4]);then pause,end
  101.  
  102.